perm filename CONST.TMP[TEX,DEK] blob
sn#524748 filedate 1980-07-19 generic text, type T, neo UTF8
:login knuth
[Home dir=USERS5]
SATURDAY, JULY 19, 1980 08:50:52 AM
Welcome to ITS
To see system messages, do ":MSGS<CR>"
:a
This is MACSYMA 290
FIX290 4 DSK MACSYM being loaded
Loading done
(C1) fpprec(50);
FLOAT FASL DSK MACSYM being loaded
Loading done
(D1) 50
(C2) bfoOloat(log(log(2));
Missing ")"
BFLOAT ( LOG ( LOG ( 2 ) ) **$**
Please rephrase or edit
(C2) bfloat(log(log(2)));
(D2) - 3.665129205816643270124391582326694694542634478371B-1
(C3) s:%;
(D3) - 3.665129205816643270124391582326694694542634478371B-1
(C4) for n:2 thru 25 do print(s:s+bfloat(log(2))↑n/(n*factorial(n)));
- 2.4639966710211397084566352665100322652162520993846B-1
- 2.2789829754717344419461610539479597406850707186354B-1
- 2.2549376527026632490412133750138125769852461048272B-1
- 2.2522709410733775603565309306162133420390896545755B-1
- 2.2520142155668212001906236456606676362397308050605B-1
- 2.251992425947101114704509323604936193899488498573B-1
- 2.2519907740112523466658232731351576578543940300377B-1
- 2.251990660921407799558048523246184349580735641737B-1
- 2.251990653866496178756925193370792168029997382799B-1
- 2.2519906534623563358595786935893004808583508325265B-1
- 2.2519906534409576391983385226376381455318250871054B-1
- 2.2519906534399044477480382050314156875321839278295B-1
- 2.2519906534398560282740751868483196225013697517841B-1
- 2.2519906534398539399829371278959051992050757697332B-1
- 2.2519906534398538551688874481762352422490368550864B-1
- 2.2519906534398538519141541937890340401987156225653B-1
- 2.251990653439853851795783341817416373753137929349B-1
- 2.2519906534398538517916922847495967124799331940022B-1
- 2.2519906534398538517915575887776734333090845509446B-1
- 2.2519906534398538517915533545766225760523361468399B-1
- 2.251990653439853851791553227234856198285874534783B-1
- 2.2519906534398538517915532235640340823879815829788B-1
- 2.2519906534398538517915532234624339782224442605158B-1
- 2.2519906534398538517915532234597297033137618048353B-1
(D4) DONE
(C5) for n:26 thru 35 do print(s:s+bfloat(log(2))↑n/(n*factorial(n)));
- 2.2519906534398538517915532234596603815486578015912B-1
- 2.2519906534398538517915532234596586678246017450137B-1
- 2.2519906534398538517915532234596586269160546298849B-1
- 2.2519906534398538517915532234596586259719903794421B-1
- 2.2519906534398538517915532234596586259509049475195B-1
- 2.2519906534398538517915532234596586259504486944179B-1
- 2.2519906534398538517915532234596586259504391204266B-1
- 2.2519906534398538517915532234596586259504389254239B-1
- 2.2519906534398538517915532234596586259504389215653B-1
- 2.2519906534398538517915532234596586259504389214911B-1
(D5) DONE
(C6) %++%.5772156649015328606065120900824024310422b0;
(D6) 5.772156649015328606065120900824024310422B-1
(C7) s+%;
(D7) 3.5201659955754747542735676773643656844715610785089B-1
(C8) d6-10↑(-40)+.5933593992b-40;
(D8) 5.7721566490153286060651209008240243104215933593992B-1
(C9) s+%;
(D9) 3.5201659955754747542735676773643656844711544379081B-1
(C10) logout();
:LOGOUT
MC ITS 1192 Console 44 Free. 09:01:13